﻿Imports BUS
Imports DTO
Public Class TraCuuLop

    Private Sub btnthoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthoat.Click
        Me.Close()
    End Sub

    Private Sub btntracuu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntracuu.Click
        dtgvdslop.Rows.Clear()
        Dim _bus As New ClopBUS()
        Dim _dslop As New List(Of CLopCrt)
        _dslop = _bus.TraCuuLop(txttenlop.Text)
        Dim i As Integer
        For i = 0 To _dslop.Count - 1
            dtgvdslop.Rows.Add(i + 1, _dslop(i).TenLop, _dslop(i).SiSo, _dslop(i).SiSoToiDa, _dslop(i).TenKhoiLop)
        Next

    End Sub
End Class